open BUFF,"final.map" or die "no file found";
open(WRBUFF,">ucsc_imputation_result_vte_chr1");
open BUFF1,"vte_raw_snps_list_ill660" or die "no file found";
open(WRBUFF1,">ucsc_before_imputation_vte_chr1");
#open(WRBUFF,">ucsc_combined_before_after_imputation");
print WRBUFF "browser position chr1:1-247185275\n";
print WRBUFF 'track name=AfterImpBlue description="after imputation blue" color=0,0,255'."\n";
print WRBUFF1 "browser position chr1:1-247185275\n";

while(<BUFF>)
{
	chomp($_);
	@a = split(" ",$_);
	if($a[0] eq "1" )
	{
		print WRBUFF "chr1 $a[3] $a[3]\n";
	}
}
print WRBUFF1 'track name=BeforeImpRed description="before imputation red" color=255,0,0'."\n";
while(<BUFF1>)
{
        chomp($_);
        @a = split(" ",$_);
        if($a[0] eq "1" )
        {
                print WRBUFF1 "chr1 $a[3] $a[3]\n";
        }
}

